home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / src.tape < prev    next >
Text File  |  2007-03-01  |  1KB  |  86 lines

  1. MASTERCODE/S
  2. *   10 ORG $8009
  3. *   20 PROC=112
  4. *   30 ENDPR=126
  5. *   40 BYT %01000110
  6. *   50 WRD EIND
  7. *   60 WRD $CA2F
  8. *   70 BYT 4.0.0.0.0
  9. *   80 WRD PROCS
  10. *   90 WRD $CA2F
  11. *  100 BYT 0
  12. *  110 PROCS
  13. *  120 BYT 6.0.0.0.0.0.0
  14. *  130 WRD HEAD
  15. *  140 BYT 0
  16. *  150 HEAD
  17. *  160 BYT PROC.LO.HI.0.ENDPR
  18. *  170 ADRES
  19. *  180 LO=ADRES-ADRES/256*256
  20. *  190 HI=ADRES/256
  21. *  200 LDA #$00
  22. *  210 STA $55
  23. *  220 LDX #$18
  24. *  230 RSID
  25. *  240 STA $D400.X
  26. *  250 DEX
  27. *  260 BPL RSID
  28. *  270 JSR $F817
  29. *  280 BCS STOP
  30. *  290 SEI
  31. *  300 LDA $01
  32. *  310 AND #$1F
  33. *  320 STA $01
  34. *  330 STA $C0
  35. *  340 LDA $D011
  36. *  350 AND #$EF
  37. *  360 STA $D011
  38. *  370 LDA #$7F
  39. *  380 LDY #$90
  40. *  390 STA $DC0D
  41. *  400 STY $DC0D
  42. *  410 LDA $0314
  43. *  420 PHA
  44. *  430 LDA $0315
  45. *  440 PHA
  46. *  450 LDA #INTER-INTER/256*256
  47. *  460 LDY #INTER/256
  48. *  470 STA $0314
  49. *  480 STY $0315
  50. *  490 CLI
  51. *  500 WAIT
  52. *  510 JSR $F6BC
  53. *  520 CMP #$7F
  54. *  530 BEQ ST
  55. *  540 JSR $F82E
  56. *  550 BEQ WAIT
  57. *  560 ST
  58. *  570 SEI
  59. *  580 LDA $D011
  60. *  590 ORA #$10
  61. *  600 STA $D011
  62. *  610 LDA #$7F
  63. *  620 LDY #$81
  64. *  630 STA $DC0D
  65. *  640 STY $DC0D
  66. *  650 PLA
  67. *  660 STA $0315
  68. *  670 PLA
  69. *  680 STA $0314
  70. *  690 JSR $FCCA
  71. *  700 STA $C0
  72. *  710 CLI
  73. *  720 STOP
  74. *  730 RTS
  75. *  740 INTER
  76. *  750 LDA $55
  77. *  760 EOR #$0F
  78. *  770 STA $55
  79. *  780 STA $D418
  80. *  790 LDA $DC0D
  81. *  800 JMP $EA81
  82. *  810 EIND
  83. *  820 BYT 0
  84. END
  85.  
  86.